home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / meta27 / mfpandor.lzh / pntt9.mf < prev    next >
Text File  |  1990-11-16  |  12KB  |  200 lines
  1. %*****************************************************************************
  2. %        Copyright (c) 1989 by N. N. Billawala
  3. %*****************************************************************************
  4.  
  5.  
  6. % pntt9.mf   Pandora Single Pitch 15 characters per inch fits with 9pt
  7.  
  8. font_identifier:="PNTT";
  9.  
  10. mode_setup;                             % general setup
  11. input pandor                            % general definitions used in pandora
  12.  
  13. designsize:= 9pt#;                      % intended "ideal" size for parameters
  14. width#:=     9pt#;                      % width of an em
  15. maxheight#:= 7.75pt#  *.85;             % max height for delimiters,e.g., [,{,(
  16. ascender#:=  7.5pt#   *.85;             % height of ascenders, e.g., on l,h,k
  17. cap#:=       7pt#     *.85;             % height of uppercase, e.g., B,H,L
  18. xheight#:=   5pt#     *.85;             % xheight of lowercase, e.g., x,n,o
  19. descender#:= 2pt#     *.85;             % depth of descenders, e.g., on j,p,q
  20. maxdepth#:=  2.25pt#  *.85;             % max depth for delimiters,e.g., [,{,(
  21. math_axis#:= .5[maxheight#,-maxdepth#]; % vertical alignment for math 
  22.  
  23. accent_height#:=.3(ascender#-xheight#); % places bottom of accents 
  24. accent_depth#:=min(.5xheight#,.7(ascender#-xheight#)); % character ref box depth
  25.  
  26. define_whole_vertical_pixels(width,maxheight,ascender,cap,xheight,descender,
  27.   maxdepth,math_axis,accent_depth);
  28.  
  29. fixed_pitch_characters(true)(15);       % true/false, # of characters per inch
  30. oblique:=0;                             % slant of character reference points
  31.  
  32. bowlstem.uc#:=.9      *fixed_pt;        % uppercase (uc) bowl width
  33. bowlstem.lc#:=.9      *fixed_pt;        % lowercase (lc) bowl width
  34. stem.uc#:=.9          *fixed_pt;        % uppercase stem width
  35. stem.lc#:=.9          *fixed_pt;        % lowercase stem width
  36. thin_stem.uc#:=.6     *fixed_pt;        % width of thin uppercase stems
  37. thin_stem.lc#:=.6     *fixed_pt;        % width of thin lowercase stems
  38. define_pixels
  39.   (bowlstem.uc,bowlstem.lc,stem.uc,stem.lc,thin_stem.uc,thin_stem.lc);
  40.  
  41. boldness:=1;
  42. makeknown(fitbasis.lc#)(.21*width#);
  43. makeknown(fitbasis.uc#)(.30*width#);
  44.  
  45. apex.uc:=inlimit(.9stem.uc)(0,stem.uc); % apex flatness in uppercase
  46. apex.lc:=inlimit(.9stem.lc)(0,stem.lc); % apex flatness in lowercase
  47. ov_t.uc:=.01cap;                        % top curve overshoot for uppercase
  48. ov_t.lc:=.01xheight;                    % top curve overshoot for lowercase
  49. ov_b.uc:=.01cap;                        % bottom curve overshoot for uppercase
  50. ov_b.lc:=.01xheight;                    % bottom curve overshoot for lowercase
  51. ov_apex.uc:=0;                          % apex overshoot for uppercase
  52. ov_apex.lc:=0;                          % apex overshoot for lowercase   
  53. apex_angle:=oblique;                    % for changing the angle at apex 
  54. if xheight<25:lowres_fix(ov_t.lc,ov_b.lc,ov_apex.lc); fi
  55. if cap<70:lowres_fix(ov_t.uc,ov_b.uc,ov_apex.uc); fi
  56.  
  57.                                         % for SERIFS and ARMS
  58. serif_thickness:=inlimit(0)(eps,.5xheight); % base thickness of horz serifs
  59. terminal_thickness:=serif_thickness;    % base thickness of terminal serifs
  60. tip_thickness:=     serif_thickness;    % base thickness of arms
  61. bulb_thickness:=   .5stem.lc;           % (base) thickness of bulbs
  62. x_bracket_h:=inlimit(.2xheight)(serif_thickness,.5xheight); % lc bracket join
  63. cap_bracket_h:=inlimit(.2cap)(serif_thickness,.5cap);       % uc bracket join
  64. bool(ctrls):=false;                     % for explicit placement of control pts
  65. onbase:=inlimit(0)(0,1);                % places control pt along base of serif
  66. onstem:=inlimit(0)(0,1);                % places control pt along stem of serif
  67. midbracket_pull:=    inlimit(.6)(0,1);  % pulls brackets in on arms and serifs
  68. entasis:=            inlimit(0)(0,1);   % amount of arc in horizontal serif base
  69. terminal_entasis:=   inlimit(0)(0,1);   % amount of arc in terminal serif base
  70. arm_angle:=          inlimit(10)(0,60); % global angle off of 90 degrees
  71. asc_terminal_angle:= inlimit(0)(0,60);  % at ascender height: from 0 deg...h,k,l
  72. x_terminal_angle:=   inlimit(0)(0,60);  % at x-height: from 0 deg...m,n,r
  73. base_terminal_angle:=inlimit(0)(0,60);  % at base line: from 0 deg...u
  74. diag_terminal_angle:=inlimit(0)(0,60);  % on diagonals: from 0 deg...k,v,w,y
  75. hs:=0;                                  % global horizontal serif length
  76. ts:=0;                                  % global terminal serif length
  77. as:=0;                                  % global arm length
  78. cs:=.5pt;                               % global curvedarm length
  79. serif_constant_amt:=0pt;                % adds same length amount to all serifs
  80. bool(bulbs):=false;                     % arms become bulbs if true
  81. bool(bulb_taper):=true;                 % changes bulbs to tapering shape
  82. taper_angle:=if bulb_taper:10 else:0 fi;% if bulb_taper, adjusts angle at end
  83. bulb_taper_amt:=0;                      % taper length as a % of limb thickness
  84. c_and_s.lc:=.65stem.lc;                 % c,s bulb length if bulb_taper=true
  85. c_and_s.uc:=.85stem.uc;                 % C,G,S bulb length if bulb_taper=true
  86. terminal_softness:=0;                   % softness in heel of the terminal serif
  87. arm_softness:=0;                        % softness in the heel of the arm
  88.  
  89.                                         % ARCHES
  90. arch_thickness.uc:=thin_stem.uc;        % uppercase arch thickness
  91. arch_thickness.lc:=thin_stem.lc;        % lowercase arch thickness
  92. arch_tip.uc:=arch_thickness.uc;         % thinnest part of the uc arch
  93. arch_tip.lc:=arch_thickness.lc;         % thinnest part of the lc arch
  94. arch_reference:=inlimit(.65)(.4,.95);   % puts ref pts between tip/stem
  95. arch_inner_amt:=inlimit(.8)(.4,.95);    % puts arch pts between tip/ref pts
  96. r_arch:=l_arch:=inlimit(.6)(0,1);       % y-value of max outer stress on r_arch
  97. bool(ensure_min_archthickness):=true;   % guarantees minimum thickness
  98.  
  99.                                         % BOWLS
  100. major_curve.uc:=arch_thickness.uc;      % uppercase major bowl curve thickness
  101. major_curve.lc:=arch_thickness.lc;      % lowercase major bowl curve thickness
  102. minor_curve.uc:=.9arch_thickness.uc;    % uppercase minor bowl curve thickness
  103. minor_curve.lc:=.9arch_thickness.lc;    % lowercase minor bowl curve thickness
  104. major_bowl_tip.lc:=major_curve.lc;      % lowercase major bowl tip thickness
  105. minor_bowl_tip.lc:=minor_curve.lc;      % lowercase minor bowl tip thickness
  106. major_bowl_reference:=inlimit(.5)(.4,.95); % puts ref pts between tip/bowlstem
  107. minor_bowl_reference:=inlimit(.5)(.4,.95); % puts ref pts between tip/bowlstem
  108. major_bowl_inner_amt:=inlimit(.9)(.4,.95); % puts arch pts between tip/ref pts 
  109. minor_bowl_inner_amt:=inlimit(.9)(.4,.95); % puts arch pts between tip/ref pts
  110.  
  111. define_minimums(                        % these values keep a one pixel minimum
  112.   bowlstem.lc,stem.lc,thin_stem.lc,apex.lc,arch_thickness.lc,arch_tip.lc,
  113.   bowlstem.uc,stem.uc,thin_stem.uc,apex.uc,arch_thickness.uc,arch_tip.uc,
  114.   major_curve.lc,minor_curve.lc,major_bowl_tip.lc,minor_bowl_tip.lc,
  115.   major_curve.uc,minor_curve.uc);
  116.  
  117.                                         % ARCHES and BOWLS and CIRCULAR SHAPES
  118. v_stress:=.52;                          % places point of vert stress on bowl
  119. h_stress:=.53;                          % places horzstress on circular shapes
  120. ductal:=inlimit(.15)(0,1);              % for more ductal strokes: value of 1
  121. minor_ductal.lc:=.1*(xheight-minor_curve.lc-major_curve.lc); % minor curve join
  122. circ1:=inlimit(.9)(.75,1.5);            % tension of outer curve shapes
  123. circ2:=inlimit(.9)(.75,1.5);            % tension of inner curve shapes
  124. circ3:=inlimit(.9)(.75,1.5);            % tension of outer circular_shapes
  125.                          
  126.                                         % JUNCTURES and NOTCHES
  127. bool(softjuncture):=false;              % are junctures soft? in junct macro
  128. juncture_opening:=inlimit(0)(0,stem.lc);% indent into stem at juncture
  129. stemcut_angle:=0;                       % cut into stem at angle off of 90
  130. archcut_angle:=0;                       % cuts into regular arch path
  131. notch_length.uc:=.05stem.uc;            % length of corrective notching (uc)
  132. notch_length.lc:=.05stem.lc;            % length of corrective notching (lc)
  133. notch_width:=1;